#lang rosetta-racket


(backend rhino 'delete)

; (define a (evaluate (on '+x (sphere 1) (sphere 2) (sphere 3))))
; (define b (evaluate (on '+z (sphere 1) (sphere 2) (sphere 3))))

(define c
  (evaluate 
   (on '+z
       (on '+x (sphere 1) (sphere 2) (sphere 3)))))